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This publication provides the informa- 
tion necessary to prepare the starter oper- 
ating system package for use. It describes 
the contents of the starter system, con- 
figuration requirements, initialization, 
preparation for system generation, and the 
sample programs to test the functioning of 
components of the system. 










PREFACE 



This publication provides systems pro- 
grammers the information necessary for pre- 
paring the starter operating system package 
for use in system generation. The follow- 
ing publications are prerequisites for the 
use of this manual. 



IBM System/360 Operating System: Con- 
cepts and Facilities , Form C28-6535. 

I BM System/360 Operating System: Utili- 
ties , Form C28-6586. 

I BM System/ 360 Operating System: 

O perator's Gu i de , Form C28-6540. 



IBM System/360 Operat ing System: Job 

Control Language , Form C28-6539. 

IBM Sys tem/360 Ope rat ing System: System 

Generation Form C28-6554. 

Section I of this publication provides a 
general description of the starter operat- 
ing system package and detailed operating 
procedures for readying it for system gen- 
eration*. Section II describes the sample 
programs which may be used to test the 
functioning of components of the system; 
detailed operating procedures for executing 
these sample programs can be obtained from 
the operator's guide referred to above. 



First Edition (September 1966) 

Changes or additions to the specifications contained in this publication 
will be reported in subsequent revisions or technical newsletters. 

This publication was prepared for production using an IBM computer to 
update the text and to control the page and line format. Page 
impressions for photo-offset printing were obtained from an IBM 1403 
Printer using a special print chain. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

A form is provided at the back of this publication for reader's 
comments. If the form has been removed, comments may be addressed to 
the IBM Corporation, Programming Systems Publications, Department D58, 
PO Box 390, Poughkeepsie, N. Y. 12602 
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INTRODUCTION 



The starter operating system package 
provides an operating system that can be 
used for system generation. However , 
before it can be used for system genera- 
tion t certain initialization procedures 
must be performed. Performing these proce- 
dures gives 



1. Punch the independent utilities from 
SYS1.SAMPLIB on DLIB02. 



2. Create backup copies of the system on 
disk or tape using the independent 
utilities. 



An operating system which may be used 
for system generation,. 



3. List the data describing the system. 



4, 



A backup copy of this operating sys- 
tem. 

A set of independent utility programs 

in a usable format; these include 

Direct Access Device Initialization 

(DASDI) 

Dump/Restore (DUMPREST) 

Recover/Replace (REC0VREP) 

Initial Program Load (IEAIPLOO) 

Sample programs which will test the 
functioning of components of the gen- 
erated system. 



The starter operating system package 
consists of an operating system and a set 
of libraries. The operating system 
includes 

1. Control program 

2. Data set utilities 

3. System utilities 

4. Assembler F 

5. Linkage Editor E £ F 

The initial package is provided on two 
disk packs or two tapes. (The volume 
serial numbers of the disk packs are DLIB01 
and DLIB02.) 

If the starter operating system is on 
tape, initialization consists of 

1. Restoring the system to disks (the 
tapes then become a backup copy of the 
system) . 

2. Punching the independent utility pro- 
grams from SYS1.SAMPLIB for later use. 

3. Listing the system data. 

The procedure for restoring the tape 
package to disks is detailed in "Processing 
the Initial Package." 

If the starter operating system is on 
disks, it is ready to use; however, certain 
steps are necessary first: 



The procedure for performing these steps 
is detailed in the section "Processing the 
Initial Package. " 



Processing of the tape and disk package 
is shown schematically in Figure 1. 



( Tape Dist. ) ( Disk Dist. J 



Initialize 
1 st Pack 



Restore 

From Tape No.l 

(DLIB01) 



Initialize 
2nd Pack 



Restore 

From Tape No. 2 

(DLIB02) 



Note: 

Steps 5 and 1 1 are done 
using the operating system. 
Steps 1 thru 4 and 6 thru 
10 are done using the 
independent utilities. 



Dump Disks 



Sys List 



Scratch Libs 



C 



Begin System 
Generation 



D 




IEAIPLOO 



Dump 
Disk Pack 
(DLIB01 



2nd Backup 
Pack 



Dump 2nd 
Disk Pack 
(DLIB02) 



Sys Data 



Figure 1. Processing the Initial Package 
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STARTER OPERATING SYSTEM 



The starter operating system requires 
6 4K bytes of main storage for operation. 
It contains a control program which can 
support the machine configuration shown in 
Figure 2 or any subset meeting the minimum 
requirements listed in Figure 3. 



The control program permits the use of 
the generic unit names listed in Figure 4; 
additional unit names provided in the 
starter system are listed in Figure 5. 



//RENAME 


JOB 


// 


1 


//RENAME 


EXEC 


//START 


DD 1 


// 


i 


/ / 

//SYSPRINT 


DD 


//SYSIN 


DD 




SCRATCH 




RENAME 



123 PROGRAMMER, 

MSGLEVEL=1 

PGM=IEHPROGM 

DISP=OLD, 

VOLUME=SER=DLIB01 , 

UNIT=2311 

SYSOUT=A 

* 

DSNAME=SYS1 • LINKLIB , 

MEMBER=IEWL # 

VOL=2311=DLIB01 

DSNAME=SYS1 . LINKLIB, 

MEMBER=IEWLE180, 

NEWNAME=IEWL, 

VOL=2311=DLIB01 



X 
X 



X 
X 

X 
X 
X 



I 



/* 



The starter operating system (DLIB01 and 
DLIB02) may be used for system generation 
on systems with greater than 64K storage 
and will use Assembler F and Linkage Editor 
F. 



If system generation is performed with 
the starter operating system using a 1403 
with the universal character set feature, 
the BPS UCS Utility program (360P-UT-048) 
must be executed prior to this in order to 
load the generator storage. When the UCS 
program is executed, NO-FOLDING and BLOCK- 
DATA-CHECK must be specified. 



System generation on a system with only 
64K storage must be performed using Linkage 
Editor E. To prepare DLIB01 for system 
generation with 64K storage, it is 
necessary to scratch the alias IEWL (IEWL 
is the alias for the largest linkage editor 
in a generated system — in the starter oper- 
ating system, Linkage Editor F) from Link- 
age Editor F and change the Linkage Editor 
E module name IEWLE18 to IEWL. The fol- 
lowing control statements must be used to 
accomplish this. 



System generation will then use Assem- 
bler F and Linkage Editor E. 

Output from the linkage editor used in 
system generation will be in SYSl. LINKLIB 
and SYS1.FORTLIB and must be acceptable 
input to the linkage editor in the result- 
ing system. This consideration and the 
chart below will assist in selecting link- 
age editors. 



| SYSl. LINKLIB, 
Linkage Editor | SYS1.FORTLIB 
Used in j Contents Acceptable 
System Generation jto Linkage Editor 


T 
E | E, F 
+ 

F | E, F 
(with LBMAINT=E | 
specified in | 
GENERATE macro) | 
+ 

F J F 
(without LBMAINT=E| 
parameter in | 
GENERATE macro) | 



L ± . J 



1052 

Printer 

Keyb oard 



009 



1052 

Printer 

Keybo ard 



1442 
Read Punch 



00A 



1443 
Printer 



00B 



1403 
Printer 



fOOE" 



2540 
Reader 



00C 



2540 
Punch 



"Sod" 



Mpx Channel 



System/360 

Model 30, 40, 50, 

65 or 75 



Selector Channel 1 



2821 
Control 



2820 
Control 



2301 
Drum 



2841 
Storage 
Control 




2311 




191 





Tape 
Control 



1C0 



These tapes must be 7 track 
tape units with the data conversion 
feature. All others must be 9 
track tape units. 





2400 



181 



2400 




182 



2400 




183 



2400 




184 



Selector Channel 3 



Selector Channel 2 



2841 
Storage 
Control 





2311 




292 



2311 




293 



Tape 
Control 



2400 




280 



2400 




281 






2400 



284 



2821 
Control 



2820 
Control 






23 
Dr 


01 
jm 




| 2C0 



2150/1052 
Console 



p309" 



2150/1052 
Console 



209 



2150/1052 
Console 



PIT 



1442 
Read Punch 



| 20A 



1443 
Printer 

HOT 



1403 
Printer 



[20E 



2540 
Reader 



20C 



2540 
Punch 



20D 



Figure 2. System Configuration 



Introduction 7 



Minimum 
Requirement 


Function 


Choose from the following 


Device 


Device Address 


MPX Channel 


Selector 
Channel 1 


Selector 
Channel 2 


Selector 
Channel 3 


1 


System Console 


1052 


009,01 F 




209, 21 F 


309 


2150/1052 


009,01 F 




209, 21 F 


309 


2 


Storage Units for System 
Residence and Data Sets 


2311 




190,191,192,193 


290,291,292,293 




1 


System Input 


2540 Reader 


OOC 




20C 




1442 Read Punch * 


00A 




20A 




2400 (7-Tr-DC) 




180,181 


280,281 




2400 (9-Track) 




182,183,184 


282,283,284 




1 


Punch Output 


2540 Punch 


00D 




20 D 




1442 Read Punch * 


00A 




20A 




2400 (7-Tr-DC) 




180,181 


280,281 




2400 (9-Track) 




182,183,184 


282,283,284 




1 


Print Output 


1443 


00B 




20B 




1403 


00E 




20E 




2400 (7-Tr-DC) 




180,181 


280,281 




2400 (9-Track) 




182,183,184 


282,283,284 




2** 


Intermediate (Work) Data Sets 


2311 




190,191,192,193 


290,291,292,293 




2301 


1C0 


2C0 


2400 (7Tr-DC) 




180,181 


280,281 




2400 (9 Track) 




182,183,184 


282,283,284 




2** 


Intermediate (Work) Data Sets 


2311 




190,191,192,193 


290,291,292,293 




2301 


1C0 


2C0 


* A single 1442 may serve as either system input or punch output, but not both simultaneously. 
** The same direct access storage devices may serve for system residence and sequential and partitioned data sets if sufficient space is available. 



Figure 3. Minimum I/O Requirements 



Magnetic Tape Drives 
Unit Name 
2400 
2400-2 



Direct-Ac cess Devices 
Uni t Name 
2311 
2301 

Unit Record Equipment 
Uni t Nam e 
1052 
1403 
1442 
1443 
2540 
2540-2 



Device Type 

2400 Series 9-track Magnetic Tape Drive 

2400 Series Magnetic Tape Drive with Seven Track 

Compatibility and Data Conversion 



Device Type 

2311 Disk Storage Drive 

2301 Drum Storage 



Device Type 

1052 Printer Keyboard 

1403 Printer 1404 Printer (continuous form only) 

1442 Serial Reader Punch 

1443 Printer 

2540 Reader Punch (read feed) 
2540 Reader Punch (punch feed) 



Figure 4. Generic Unit Names 



Name 



SYSSQ 



SYSDA 



Function 



Sequential access on devices 
at any of the following 
addresses: 182, 183, 184, 282, 
283, 284, 190, 191, 192, 193, 
290, 291, 292, 293 (any 
9-track tape or 2311 disk 
storage drive) . 



Direct access on devices at 
any of the following address- 
es: 190, 191, 192, 193, 290, 
291, 292, 293, (any 2311 disk 
storage drive) . 



SYSCP | A 2540 card punch at address 
00D or 20D. 

Figure 5. Additional Unit Names Supporting 
IBM Supplied Cataloged Proce- 
dures 



The starter operating system requires 
that all devices to be used by the system 
be ready prior to initial program loading. 
Any device not ready will automatically be 
varied off line at IPL time. If any device 
which was not ready at initial program 
loading time is required during a job step, 
the operator should enter a VARY ONLINE 
command for that device. When using the 
starter operating system, it is permissible 
to have devices other than those listed in 
Figure 2 attached to the system. However, 
an interrupt must not be issued from any of 
these additional devices while the starter 



operating system is running. For example, 
the operator must not make ready any one of 
these devices. 



LIBRARIES 



In addition to the starter operating 
system, the starter system package includes 
the following libraries; each is a parti- 
tioned data set (PDS) : 

1. SYS1.M0DLIB: This library contains the 
load modules from which the operating 
system programs are constructed or 
selected during system generation. It 
contains modules needed exclusively 
during system generation and mainten- 
ance updating. 

2. SYS1.GENLIB: This library contains the 
macro definition modules that are un- 
ique to the system generation process. 
It is the COPY library of the assem- 
bler during stage I of system genera- 
tion. It has a blocking factor of 42. 

3. SYS1.PROCLIB: (Procedure Library) The 
members of the procedure library 
include IBM cataloged procedures used 
to perform certain system functions, 
e.g., compile- linkage edit-go. The 
records are unblocked. 

4. SYS1.SAMPLIB: This library contains 
80-character card images. Its princi- 
pal use will be data decks for sample 
programs. This library also contains 
the DASDI, DUMPREST, RECOVREP, and 
IEAIPL00 programs. 
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SY Si. MAC LIB (Macro Library): The mem- 
bers of the macro library include the 
macro-definitions for the system 
macro-instructions. It has a blocking 
factor of 42. 

SYS1.C0BLIB (COBOL Library) : The mem- 
bers of the COBOL library are load 
modules (COBOL subroutines) . 

SYS1.F0RTLIB (FORTRAN Library): This 
library is distributed without mem- 
bers. The members to be placed in it 
during system generation are contained 
in SYS1.M0DLIB. All library members 
of SYS1.F0RTLIB that have a non-IBM 
name are copied intact into the 
SYS1.F0RTLIB of the new system. 

SYS1.PL1LIB (PL/I Library): The mem- 
bers of the PL/I library are load 
modules (PL/I subroutines) . 



at the beginning of 
restoring onto the dis 
libraries shown in 
onto the disks from th 
layout is shown in Fig 
Dump/Restore programs 
beginning of the tape 
sets may not be in the 



the tapes for use in 
k packs. Only those 
Figure 6 are restored 
e tapes. The tape 
ure 7. The DASDI and 
will always be at the 
s, but the other data 

order shown. 




Disk No. 2 (DLIB02) 



SYS I.MAC LIB 



SYS1.GENLIB 



SYS1.SAMPLIB 



I 



SYS1.SO&TLIB (Sort Library): The mem- 
bers of the sort library are the load 
modules from which a sort/merge pro- 
gram is produced at execution time. 



ARRANGEMENT OF DATA SETS 



The starter operating system package on 
disk is operable (though a backup copy of 
it should be made) ; it contains the starter 
operating system and the libraries shown in 
Figure 6. (The data sets on each pack are 
not necessarily in the order shown. ) 



The starter operating system package on 
tape includes all the contents of the disk 
packs shown in Figure 6; however, since the 
tapes must be restored onto disk packs, two 
additional independent utility programs — 
Direct Access Device Initializtion (DASDI) 
and Dump/Restore (DUMPREST) — are provided 



Figure 6. Disk Pack Contents 



Restored 
Disk Data" 



Tape No. 1 (DLIB01) 



DASDI 



DUMP/RESTORE 



T/M 



Starter System 



SYS1.MODLIB 



SYS1.SORTLIB 



SYS1.COBLIB 



SYS1.FORTLIB 



SYS1 PL1LIB 



SYS1.PROCLIB 



T/M 



TRAILER RECORD 
FOR DUMP/RESTORE 



T/M 



Tape No. 2 (DLIB02) 



DASDI 



DUMP/RESTORE 



T/M 



SYS1.MACLIB 



SYS1.GENLIB 



SYS1.SAMPLIB 



T/M 



TRAILER RECORD 
FOR DUMP/RESTORE 



T/M 



Restored 
Disk Data 



Figure 7. Tape Layout 
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PROCESSING THE INITIAL PACKAGE 



For illustrative purposes the following 
procedures for processing the initial pack- 
age assume the set of devices and device 
addresses listed in Figure 8. 



The first procedure is for readying the 
tape package; the second procedure is for 
preparing the disk package with disk backup 
copy, and the third procedure is for pre- 
paring the disk package with tape backup. 
In the control decks shown the underlined 
fields are those that may require modifica- 
tion for different installations. 



T - 



Device Function 


| Input/Output 
| Device 

4- -L 


Address 

L 




T T 


Printer Keyboard 


|1052 


(OIF) 


System Residence 


and|2311 #1 


(190) 


System Data Sets 


|2311 #2 


(191) 


System Input 


|2540 Reader 


(00C) 


Punch Output 


|2540 Punch 


(00D) 


Print Output 


|1403 Printer 


(00E) 


Tape Drives 2 


|2400 Tape 


| (180)*- 




|2400 Tape 


(181)* 




|2400 Tape 


(182) 3 - 



X J- 

iTape units located at addresses 180 and 

181 are 7-track tape units with data 
conversion feature. The tape unit at 

182 is a 9-track tape unit. 

2 Tape units are required only if the 
initial distribution is received on 
tapes or if system backup will be dumped 
onto tape. 



Figure 8. Sample Configuration 
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TAPE DISTRIBUTION 



Initialize Disk 
for 

Operating System 



Restore Tape 
to Disk 



Initialize 
Second Disk 

Restore to 
Second Disk 



1. Mount disk pack onto which starter operating system is to be 
placed. 

2. Mount tape (DLIB01) of initial package. 

3. Load DASDI from tape by setting the load selector switches and 
pressing the console LOAD key. When the program is loaded, the wait 
state is entered and the hexadecimal value FFFF is displayed in the 
console lights. 

4. The control deck shown below should be placed in the input device to 
initialize the disk. 



JOB 

MSG 

DADEF 

VLD 

VTOCD 

END 



TODEV=1403,TOADDR= 00E 

TODEV=2311 , TOADDR= 19 , VOLID= SCRATCH 
NEW VOLID= lllll l,OWNERID= DEPT38 
STRT ADR=5 , EXTENT=10 



Define the control statement input device by pressing the REQUEST 
key of the printer keyboard. The message DEFINE INPUT DEVICE will 
be printed. Enter the message INPUT=xxxx cuu where xxxx is the 
device type, c is the channel address and uu is the unit address. 
Device type can be 1442, 2400 or 2540. 

When the disk initialization is complete, the message END OF JOB 
will be printed on the message output device, and the program will 
enter the wait state. 

5. Load the Dump/Restore program by setting the load selector switches 
and pressing the control LOAD key. When FFFF is displayed on the 
console lights, the program is loaded. 

6. The control deck shown below should be used to restore the contents 
of the tape to the disk. 

JOB 

MSG TOPE V= 1403, TO ADDR= E 

RESTORE FROMDEV=2400 , FROMADDR=180 , TODEV=2311, TOADDR=190, VOLID=llllll 

END 

Define the control statement input device by pressing the 
REQUEST key of the printer keyboard. The message DEFINE INPUT 
DEVICE will be printed. Enter the message INPUT=xxxx cuu where 
xxxx is the device type, c is the channel address and uu is the 
unit address. Device type can be 1442, 2400, or 2540. 

When the restoring is complete, the message END OF JOB will be 
printed on the message output device, and the program will 
enter the wait state. 

7. Repeat steps 1-4 to initialize the second disk. Be sure that tape 
#2(DLIB02) is used. 

8. Repeat steps 5-6 to restore the second tape to disk. 



You now have operable disk packs with backup tapes and may proceed to punch the 
utility programs, any sample programs you may want, and list the system data. 
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Punch Utilities 
and Sample 
Programs 



List Data 



Note 1 



Note 2 



Note 3 



//J0B1 


JOB 


// 


EXEC 


//SYSUT1 


DD 


// 




//SYSUT2 


DD 


//SYSPRINT 


DD 


//SYSIN 


DD 



9. Be sure all necessary volumes are mounted and make ready all 
devices to be used. The control deck shown below should be in the 
input device. 

ACCT123 , PROGRAMMER , MSGLEVEL=1 

PGM=IEBPTPCH 

DSNAME=SYSl.SAMPLIB,DISP= (OLD, KEEP) ,UNIT=2311, X 

VOLUME=SER=DLIB02 

UNIT=2540-2 

SYSOUT=A 

* 

PUNCH TYPORG=PO,MAXNAME=4 
MEMBER NAME=DUMPREST 
MEMBER NAME=DASDI 
MEMBER NAME=IEAIPL00 
MEMBER NAME=RECOVREP 
/* 

A MEMBER card may be added to the control deck above for any sample 
program desired for later use, provided the MAXNAME field in the 
PUNCH control card is adjusted. The member name card (first card) 
should be removed from each member deck punched. (Refer to the section, 
"Sample Programs" for member names of the sample programs.) 

10. Set the LOAD UNIT switches on the control panel to the channel, 
control unit, and device of the system residence volume. 

11. Press the LOAD key. 

12. Wait for a READY message and the WAIT light to be turned on. 

13. After receiving the READY message, enter a SET command specifying 
the date as follows: 

a. Press REQUEST key. 

b. Wait for READ light to go on. 

c. Type SET DATE=yy.ddd 

d. Press alternate coding key and the numeric 5 key (EOB) . 

14. The starter system has built-in START RDR and START WTR commands 
which will be issued automatically; they are 

START RDR, 00C 
START WTR, 00E 

If these are not the addresses of the reader and writer to be used, 
override these commands by entering new ones for the proper 
devices. 

15. Enter a START command with no parameters. When the job is complete 
a READER CLOSED message will be printed, followed by a READY 
message, and the system will enter the wait state. 

16. To list the data describing the system, place the control deck 
below in the input device and enter a START READER command followed 
by a START command. 

ACCT1 2 3 , PROGRAMMER , MSGLEVEL=1 

PGM=IEHLIST 

SYSOUT=A 

UNIT=2311,VOLUME=SER=DLIB01,DISP=OLD, 

UNIT=( 192,, DEFER) ,VOLUME= (PRIVATE, RETAIN) , X 

DISP= (NEW, KEEP) 

* 

DUMP 

DUMP,VOL=2311=DLIB02 
LISTPDS DSNAME= ( SYSl . PROCLIB , SYSl . MODLIB 

[, Optional PDS's on System Residence] ) 



//JOB2 


JOB 


//STEP1 


EXEC 


//SYSPRINT 


DD 


//DD1 


DD 


//DD2 


DD 


// 




//SYSIN 


DD 




LISTCTLG 




LISTVTOC 




LISTVTOC 
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/* 
// 



LISTPDS VOL=2311=DLIB02 , DSNAME= ( SYS1 . GENLIB, SYS1 • SAMPLIB, 
[Optional PDS's on DLIB02]) 



Note Is 



Note 2 t 



Note 3: 



No MOUNT statement should be entered for the drive on which DLIB02 is 
mounted between IPL time and J0B2. If J0B2 is run immediately after 
J0B1 (in Step 9) eliminate the J0B2 card. 

The physical address underlined in this statement should be replaced 
with the address of the device containing DLIB02. 

In STEP1 any of the PDS's in Figure 6 may be listed in the "LISTPDS." 



I 
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DISK DISTRIBUTION (DISK BACKUP) 



The steps below detail the procedure 
operating system on disks. 



for creating a backup copy of the starter 



Punch Utilities 



Initialize First 
Disk Pack 



To punch the utility programs from the disks (which you will need to 
prepare a backup copy of the disks) , perform steps 9-15 exactly as 
they are described under "Tape Distribution." 

Place the DASDI program in the input device with the control deck 
shown below behind it, and mount the disk pack to be processed. 



JOB 

MSG 

DADEF 

VLD 

VTOCD 

END 



TODE V=l 40 3 , TOADDR= Q0E 

TODEV=2311 , TOADDR= 190 , VOLID= SCRATCH 

NEWVOLID= llllll ,OWNERID= DEPT38 

STRTADR=50 ,EXTENT=10 



Restore First 
Disk 



JOB 
MSG 
DUMP 
END 

7. 



8, 



Load the DASDI program by setting the load selector switches and 
pressing the console LOAD key. When the program is loaded, the wait 
state is entered and the hexadecimal value FFFF is displayed in the 
console lights. 

Define the control statement input device by pressing the REQUEST 
key of the printer keyboard. The message DEFINE INPUT DEVICE will 
be printed. Enter the following message from the printer keyboard. 

INPUT=xxxx cuu 

where xxxx is the device type, c is the channel address and uu is 
the unit address. The device type can be 1442, 2400, or 2540. 

At the end of the job, the message END OF JOB will be printed on the 
message output device, and the program will enter the wait state. 

Place the Dump/Restore program in the input device with the control 
deck shown below behind it. 

TODEV= 1403 , TOADDR=00E 

FROMDEV=2311 , FROMADDR=190, TODEV=2311 , TOADDR=191 , VOLID= llllll 

Load the program by setting the load selector switches and depress- 
ing the console LOAD key. When the program is loaded, the wait 
state is entered and the hexadecimal value FFFF is displayed in the 
console lights . 

Define the control statement input device by pressing the REQUEST 
key of the printer keyboard. The message DEFINE INPUT DEVICE will 
be printed. Enter the following message from the printer keyboard. 

INPUT=xxxx cuu 



where xxxx is the device type, c is the channel address and uu 
the unit address. The device type can be 1442, 2400, or 2540. 



is 



9. 



At the end of the job, the message END OF JOB will be printed on the 
message output device and the program will enter the wait state. 



Initialize 
Second Disk 



E 



10. Repeat steps 2-5 to initialize the second disk. 
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Restore 
Second Disk 

List Data 

Describing 

System 



Note 1 



E 



11. Repeat steps 6-9 to restore DLIB02. 



Note 2 



Note 1 
Note 2 



12. To list the data describing your system, place the control 
deck shown below in the input device. 



A CCT1 2 3 . PROGRAMMER , MSGLEVEL=1 

PGM=IEHLIST 

SYSOUT=A 

UNIT=2311 y VOLUME=SER= DLIB01 ,DISP=OLD 

UNIT= ( 192, , DEFER) , V0LUME= (PRIVATE, RETAIN) , 

DISP= (NEW, KEEP) 

* 

LISTCTLG 
LISTVTOC DUMP 

LISTVTOC DUMP,VOL=2311=DLIB02 
LISTPDS DSNAME= ( SYSl . PROCLIB, SYSl . MODLIB 

[, Optional PDS's on System Residence]) 
LISTPDS VOL=2311=DLIB02,DSNAME= (SYSl. GENLIB, SYSl. SAMPLIB 
C, Optional PDS's on DLIB02]) 



//JOB 2 


JOB 


//STEP1 


EXEC 


//SYSRINT 


DD 


//DD1 


DD 


//DD2 


DD 


// 




//SYSIN 


DD 



I 



/* 
// 



The physical address underlined in this statement should be replaced 
with the address of the device containing DLIB02. 

In STEP1 any of the PDS's in Figure 6 may be listed in the "LISTPDS". 

13. Set the LOAD UNIT switches on the control panel to the channel, 
control unit, and device of the system residence volume. 

14. Press the LOAD key. 

15. Wait for a READY message. 

16. After receiving the READY message, enter a SET command specifying 
the date as follows : 

a. Press REQUEST key. 

b. Wait for READ light to go on. 

c. Type SET DATE=yy.ddd 

d. Press alternate coding key and the numeric 5 key (EOB) . 

17. The starter system has built-in START RDR and START WTR commands 
which will be issued automatically; they are 

START RDR, 00C 
START WTR, 00E 

If these are not the addresses of the reader and writer to be used, 
the operator must override these commands by entering new ones for 
the proper devices. 

18. Enter a START command with no parameters. 
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DISK DISTRIBUTION (TAPE BACKUP) 



The steps below detail the procedure for creating a backup copy of the starter 
operating system package on tape. 



Punch Utilities 



1,. To punch the utility programs from the disks (which you will need to 
prepare a backup copy of the disks) , perform steps 9-15 exactly as 
they are described under "Tape Distribution." 



Dump Disk 
to Tape 



List Data 



Place the Dump/Restore program in the input device with the control 
deck shown below behind it. 



JOB 

MSG T0DEV=14 03 , TOADDR= 00E 

DUMP FROMDEV=2311,FROMADDR=190, TODEV=2400, TOADDR=181, VOLID=llllll 

END 

3. Load the disk to be dumped and the tape to receive the backup copy. 

4. Load the Dump /Restore program by setting the load selector switches 
and depressing the console LOAD key. When the program is loaded, 
the wait state is entered and the hexadecimal value FFFF is 
displayed in the console lights. 

5. Define the control statement input device by pressing the REQUEST 
key of the printer keyboard. The message DEFINE INPUT DEVICE will 
be printed. Enter the following message from the console typewrit- 
er: 

INPUT=xxxx cuu 

where is the device type, c is the channel address and uu is the 
unit address. The device type can be 1442, 2400, or 2540. 

6. At the end of the job, the message END OF JOB will be printed on the 
message output device, and the program will enter the wait state. 



To dump the contents of the second disk, perform 
after mounting a second tape and the second disk. 



steps 2-6 above 



/* 
// 



To list the data describing the system, load the operating system, 
and place the following control deck in the input device. Enter a 
START command with no parameters. 

ACCT1 2 3, PROGRAMMER , MSGLEVEL=1 

PGM=IEHLIST 

SYSOUT=A 

UNIT=2311,VOLUME=SER=DLIB01,DISP=OLD 

UNIT=(192, , DEFER) , VOLUME- (PRIVATE, RETAIN) , X 

DISP= (NEW, KEEP) 

* 

LISTCTLG 

LISTVTOC DUMP 

LISTVTOC DUMP,VOL=2311,DLIB02 

LISTPDS DSNAME= ( SYS1 . PROCLIB, SYS1 . MODLIB 

[Optional PDS's on System Residence!) 
LISTPDS VOL=2311=DLIB02 , DSNAME= ( SYS1 . GENLIB, SYSl . SAMPLIB, 

[Optional PDS's on DLIB02] ) 



//JOB2 


JOB 


//STEP1 


EXEC 


//SYSPRINT 


DD 


//DD1 


DD 


//DD2 


DD 


// 




//SYSIN 


DD 
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DELETING LIBRARIES 



In order to make additional direct access storage available for the system generation 
process , when only two disk drives are attached to the system, you may elect to delete 
SYS1.SAMPLIB from your operable pack (DLIB02) before starting the system generation 
process. This may be accomplished by loading the operating system and using the control 
deck below in the input device. 



I 



//J0B2 


JOB 


//STEP2 


EXEC 


//SYSPRINT 


DD 


//DD1 


DD 


//SYSIN 


DD 




SCRATCH 



/* 



AC CT1 23, PROG RAMMER , MSGLEVEL=1 

PGM=IEHPROGM 

SYSOUT=A 

UNIT=(191, , DEFER) ,VOLUME= (PRIVATE , RETAIN) , DISP= (NEW, KEEP) 

* 

DSNAME=SYS1. SAMP LIB, VOL=2311=DLIB02, PURGE 



In order to generate a primary control program with the sequential scheduler, 
sequential and partitioned access methods, utilities and a selection of the "E" level 
processors using two 2311 Disk Storage Drives and three volumes, it is essential to 
scratch SYS1.PL1LIB from DLIB01. This may be accomplished by including the following 
statements in the above control deck when that job is run. 



//DD2 



DD UNIT=2311 , VOLUME=SER=DLIB01 , DISP=OLD 

SCRATCH DSNAME=SYS1.PL1LIB, PURGE, VOL=2311=DLIB01 
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SECTION II : SAMPLE PROGRAMS 



This section contains descriptions of 
the sample programs provided by IBM to test 
the functioning of various components of 
the generated system after system genera- 
tion • The programs should be punched prior 
to system generation; the procedure for 
punching them is detailed in Section I 
under "Processing the Initial Package." 
Each sample program writeup contains a 
description of the program, operating 
instructions , and a description of the 
program execution results. More detailed 
operating procedures can be found in the 
publication IBM System/ 360 Operating Sys- 
tem: Operator's Guide referred to in the 



Preface. Sample programs are contained in 
SYS1.SAMPLIB on DLIB02 of the starter oper- 
ating system package; the following sample 
programs are provided: 



Program M ember Nam e 

Assembler E 6 F Program IETESP 

Update Analysis Program IHGSAMP 

Sort Program IERSP 

FORTRAN E Program IEJESP 

COBOL E Program IEPSAMP 

PL/I F Program IEMSP 

Express Graphics Program SAMP2250, 

SAMP2260 
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ASSEMBLER ESF SAMPLE PROGRAM (IETESP) 



DESCRIPTION 



The IETESP card deck (punched from 
SYSl.SAMPLIB) is the sample program source 
deck. 



The program for Assembler F may be 
called by substituting the following exe- 
cute card in the above deck: 



//stepname 



EXEC 



PROC=ASMFCLG 



The sample problem demonstrates the use 
of the assembler and serves as a minimal 
test of the functioning of the assembler. 
In addition, it provides sample coding 
demonstrating the definition and use of 
user written macro-instructions , the call- 
ing of system macro-instructions , and the 
proper method of saving and restoring reg- 
isters upon entry and exit from a problem 
program. 

The input is assembled into the program 
in the form of a TABLE and a LIST of 
entries which are to be passed against the 
table. Each item in the table contains an 
argument name such as ALPHA and space in 
which information concerning that name is 
to be placed. Each entry in the LIST 
contains an argument name and function 
values. The formats of the TABLE entries 
and the LIST entries are different , and 
both formats are described by means of 
DSECTs. The program searches the TABLE for 
an argument name in the list. If a match 
is found, the function values are reformat- 
ted and moved to the appropriate TABLE 
entry. If an argument name in the LIST 
cannot be found in the TABLE, a switch is 
set in the LIST entry. After all LIST 
entries have been processed, both the LIST 
and TABLE areas are compared with TESTTABL 
which contains the predefined results. If 
the comparison is equal, the routine exe- 
cuted properly and a message is written to 
indicate this. 



This procedure calls for an assembly, 
link edit, and execution of the sample 
program. A more detailed explanation of 
the contents of the procedure and use of 
the assembly program is given in IBM 

System/360 Operating Sys tem: Assembler (E) 

Programmers Guid e, Form C28-6595 and in IBM 

System/360 Opera ting System: Assembler (F) 

Programmers Guide , Form C26-3756. 



OPERATING INSTRUCTIONS 



1. Mount the operating system on a 2311 
and an initialized scratch pack. 

2. Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 

3. Place the sample program source deck 
in card reader, ready reader, and 
press the End of File key. 

4. Ready the printer. 

5. Execute the job. 



Use of the program for Assembler E may 
be achieved by calling the IBM supplied 
cataloged procedure ASMECLG in the follow- 
ing manner: 



//jobname JOB 

//stepname EXEC PROC= ASMECLG 

//SYSIN DD * 

Sample Program Source Deck 

/* 



OUTPUT 



The check for the successful execution 
of the sample program is a message on the 
operator's console. The message says eith- 
er, "ASSEMBLER SAMPLE PROGRAM SUCCESSFUL" 
or "ASSEMBLER SAMPLE PROGRAM UNSUCCESSFUL." 
The program gives a normal return to the 
operating system with a return code of 
zero. 
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UPDATE ANALYSIS PROGRAM SAMPLE PROGRAM (IHGSAMP) 



DESCRIPTION 



The IHGSAMP card deck (punched from 
SYS1.SAMPLIB) consists of 

1. Job control language statements and 
data to accomplish Stage 1, steps 1, 
1A, 2, 3, 4, 5, 6 and 7. 

2. Job control language statements to 
accomplish Stage 2, steps 3, 4, 5 
and 6. 

This sample program is a two-stage oper- 
ation requiring two input card decks. The 
Stage 1 input deck is complete. However , 
the output created by Stage 1 must be 
placed in front of the Stage 2 input deck 
before Stage 2 can be executed (The output 
of Stage 1 is the job control language 
statements to accomplish Stage 2, steps 1 
and 2.) 

In order to demonstrate the functions of 
Update Analysis, it is necessary to create 
some data sets on a disk pack of the 
operating system. However* the sample 
program has been constructed so that at its 
completion all data sets created by it are 
deleted. Therefore, the program can be run 
without leaving residue from its operations 
on the system disk packs. The printer 
output acts as a graphic demonstration of 
the changing programs. 

Stage 1 builds two sample symbolic 
libraries and one sample change library. 
It then executes the Update Analysis Pro- 
gram which creates the job stream required 
to update the sample libraries. Stage 2 
utilizes the output of the Update Analysis 
to update the two sample libraries , then 
proceeds to eliminate the data sets from 
the system. This is described in the 
section "Output." 



OPERATING INSTRUCTIONS 



1. Mount the operating system on a 2311 
and initialized scratch pack. 

2. Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 

3. Place Stage 1 card deck in reader and 
ready the reader, printer, and punch. 



4. Execute the Stage 1 job stream. 

5. At the end of the job, take the output 
of Stage 1 from the punch stacker and 
place in front of Stage 2 deck. 

6. Place Stage 2 deck in reader and ready 
reader. 

7. Issue commands: 
START RDR, 00C 
START 

to execute the Stage 2 job stream. 



OUTPUT 



Stage 1 



Step 1 



Step 1A 



Step 2 



Step 3 



Step 4 



Step 5 



EXEC IEBUPDAT 

This step creates a temporary 
data set that contains the SYSIN 
control cards for step 1A. 

EXEC IEBGENER 

This step creates the PDS 
SAMPLCHG which is the change PDS 
containing three change members 
to be applied to the two sample 
libraries . 

EXEC IEBUPDAT 

This step creates the PDS 
SAMPLIB1 which is a sample system 
library containing two members: 
MEMBER1 and MEMBER2. 

EXEC IEBUPDAT 

This step creates the PDS 

SAMPLIB2 which is a sample system 

library containing one member: 

MEMBER3. 

EXEC IEHLIST 

This step lists the directories 
of the two sample libraries. The 
list will show the SSI bytes of 
the members prior to updating. 

EXEC IHGUAP 

This step causes the SAMPLCHG PDS 
to be analyzed and creates the 
job stream which will update the 
sample system libraries. For the 
purpose of the sample problem, 
this output is temporarily stored 
on disk to be available for steps 
6 and 7 . 
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EXEC IEBPTPCH 

This will print the output of 

step 5. 

EXEC IEBPTPCH 

This will punch the output of 

step 5. 



Step 6 



Step 7 



Stage 2 



Step 1 (Using punched output from step 7 

and 2 of Stage 1) 

EXEC IEBUPDAT Update SAMPLIB1 

EXEC IEBUPDAT Update SAMPLIB2 

Step 3 EXEC IEHLIST 

This step lists the directories 



of the two sample libaries. The 
list will show the SSI bytes of 
the members after they have been 
updated. 

Step 4 EXEC IEBUPDAT 

This reproduces SAMPLIB1 in its 
updated form. This operation 
creates a printed list which 
shows the effect of the change. 

Step 5 EXEC IEBUPDAT 

This reproduces SAMPLIB2 in its 
updated form. It creates a 
printed list which shows the 
effect of the change. 

Step 6 EXEC IEHPROGM 

This causes the deletion of data 
sets SAMPLCHG, SAMPLIB1 and 
SAMPLIB2. 
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SORT SAMPLE PROGRAM (IERSP) 



DESCRIPTION 



The IERSP card deck 
SYS1.SAMPLIB) consists of: 



(punched from 



1. Job control language statements for 
TAPESORT. 



Job control 
DISKSORT. 



language statements for 



3. Data to be sorted. 

The data to be sorted consists of 500 
80-character records, each containing a 
6-digit sequence number and a 10-character 
control field. As provided, the data deck 
is in the 6-digit sequence number order. 
The SORT control card specifies that the 
data is to be sorted on the 10-character 
control field. The output of either a 
TAPESORT or a DISKSORT will be in 
10-character control field sequence. 

The TAPESORT job control language 
statements provided in IERSP call for four 
tape units (three for work and one for 
SORTOUT) . To use more than three work 
tapes, additional cards may be added behind 
the SORTWK03 DD card. They should be 
identical to other SORTWK DD cards except 
for DD name which must be consecutive, 
i.e., SORTWK04, SORTWK05 SORTWK32. 

The DISKSORT job control language state- 
ments provided in IERSP call for six work 
areas of 30 contiguous tracks each on a 
2311. 



OPERATING INSTRUCTIONS 



1. Mount the operating system on a 2311 
and an initialized scratch pack. 



Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 



For a TAPESORT, the data deck should 
be placed on tape as one unblocked 
sequential data set. An operator mes- 
sage (during step #7 below) will give 
mounting instructions. 

For a DISKSORT, the data deck should 
be placed on the scratch pack (mounted 
in step #1 above) as one unblocked 
sequential data set and cataloged 
under the name TEST. 

For a TAPESORT, place the TAPESORT job 
control language statements in the 
card reader. 

For a DISKSORT, place the DISKSORT job 
control language statements in the 
card reader. 

Ready the reader and press the End of 
File key. 



6. Ready the printer. 

7. Execute the job. 



OUTPUT 

A message to the operator will indicate 
the unit assigned to SORTOUT (unit contain- 
ing output) . This output can be printed 
and reviewed. The records will be in 
10-character control field sequence. 

Output of TAPESORT will be on tape. 

Output of DISKSORT will be on disk. 
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FORTRAN E SAMPLE PROGRAM (IEJESP) 



DESCRIPTION 



The IEJESP card deck (punched from 
SYS1.SAMPLIB) consists of: 

1. Job control language statements for a 
FORTRAN compilation, 

2. FORTRAN sample program source state- 
ments . 



3 . Place the IEJESP card deck in the card 
reader, ready reader, and press the 
End of File key. 



4. Ready the printer. 

5. Execute the job. 



3. Job control language statements for a 
link edit and execution of the sample 
program. 

4. Data deck for FORTRAN sample program 
execution. 

The sample program is a simultaneous 
equations routine which consists of 104 
FORTRAN source statements: 



OUTPUT 



1 


Specification 


14 


Format 


17 


Read/Write 


27 


Control 


16 


Arithmetic 


29 


Comments 



The program processes eight data cards 
as its input. The comments cards show a 
complete list of the expected output from 
the execution of the program. This list 
may be used for checking output. 



OPERATING INSTRUCTIONS 



Mount the operating system on a 
and an initialized scratch pack. 



2311 



Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 



The scheduler will read, process, and 
print (on the device specified as 
SYSOUT by the operator) all job con- 
trol statements. 

The compiler will read and list the 
source program on the device specified 
as SYSOUT by the operator. 

The compiler will prepare and list (on 
SYSOUT) the following: 

a. Message showing compiler options 
in effect 

b. Heading including date and level 

c. The source program 

d. Storage map including size of COM- 
MON and size of program 

e. Message showing "END OF COMPILA- 
TION program- name" 

The linkage editor will prepare and 
list (on SYSOUT) a storage map includ- 
ing the relative address of each 
external reference. 

The FORTRAN load module will list (on 
SYSOUT) the results of execution. The 
results should correspond to the com- 
ments in the source program. 



24 



COBOL E SAMPLE PROGRAM (IEPSAMP) 



DESCRIPTION 



The IEPSAMP card deck 
SYS1.SAMPLIB) consists of: 



(punched from 



Job control language statements to 
execute the COBOL E cataloged proce- 
dure COBECLG to compile, link edit, 
and execute. 



Place the IEPSAMP card deck in the 
card reader, ready reader, and press 
End of File key. 

Ready the printer. 

Execute the job. 



COBOL sample program source state- 
ments . 



OUTPUT 



3. DD statements for tape data 
required at execution time. 



sets 



The sample program tests the COBOL 
compiler's ability to WRITE to and READ 
from tape f checking proper data alignment 
where data is a mixture of DISPLAY COMPUTA- 
TIONAL and COMPUTATIONAL- 3. 

The verbs exercised in this program are 

OPEN, CLOSE, READ, WRITE, PERFORM, IF, 

MOVE, GO TO, DISPLAY, ADD. There are 575 
source statements. 



OPERATING INSTRUCTIONS 



The scheduler will read, process, and 
print (on the device specified as 
SYSOUT by the operator) all job con- 
trol language statements. 

The compiler will read and list the 
source program oh the device specified 
as SYSOUT by the operator. 

The compiler will prepare and list (on 
SYSOUT) 

a. Heading including date and level 

b. The source program 

c. A data map of the Data Division 

d. An object code listing (PMAP) of 
the Procedure Division 



1. Mount the operating system on a 2311 
and an initialized scratch pack. 

2. Mount unlabeled tapes on 182, 183, and 
282. 

3. Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 



The linkage editor will prepare and 
list (on SYSOUT) . 

a. A module map 

b. A cross-reference list 

The COBOL load module will list (on 
SYSOUT) the following: 

GROUP B LEVEL P TEST CASE 1 
END OF PROGRAM 
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PL/KF) SAMPLE PROGRAM (IEMSP) 



DESCRIPTION 



The IEMSP card deck consists of 

Job control language statements for a 
PL/1 compilation, link edit, and exe- 
cution of the compiled program. The 
cataloged procedure PL1LFCLG is used. 



PL/1 sample program source statements. 



Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 



Place the IEMSP card deck in the card 
reader, ready the reader, and press 
End of File. 



Ready printer. 



5. Execute job. 
The purpose of the sample program is to 
illustrate the use of list, edit and data 
directed output. There are 20 source 
statements. They include PROCEDURE, 
DECLARE, DO, END, PUT LIST, PUT EDIT, and OUTPUT 
PUT DATA. 



No data input is required. 

The sample program is described in 
detail in IBM System/360 Ope rating System 
PL/ KF) Prog ramm ers Guide , Form C28-6594. 



OPERATING PROCEDURES 



Mount the operating system pack on a 
2311. 



Normal compilation output. 

a. All job control language state- 
ments in the catalogued procedure. 

b. All source statements. 

c. An attribute and cross-reference 
listing. 

d. A listing of generated object 
code. 

e. A list of errors found during the 
compilation. 



2. Normal link edit step output. 

3. The correct generated output is 
in Figure 9. 



shown 



EXAMPLES OF LI ST/ DATA/ED IT OUTPUT 

LIST DIRECTED EXAMPLES: 

12345 1.23450E+04 1. 23450E+04+1. 23450E+04I ' 1100111000' B ABC'DEFG 

DATA DIRECTED EXAMPLES: 

A= 12345 B= 1.23450E+04 C= 1. 23450E+04+1 . 23450E+04I D=* 1100111000 • B E='ABC ,, DEFG •; 
ARRAY(1,1)= 2.00000E+00 ARRAY(l f 2)= 3.00000E+00 ARRAY(2,1)= 3.00000E+00 ARRAY<2,2)= 4.00000E+00; 



EDIT DIRECTED EXAMPLES: 

12345.00 12345E+00 12345E+00 12345E+00 



HOOlllOOOABC'DEFG 



Figure 9. PL/I Generated Output 
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EXPRESS GRAPHICS SAMPLE PROGRAM (S AMP2250, SAMP2260) 



DESCRIPTION 



OPERATING INSTRUCTIONS 



The SAMP2250 card (sample program to 
exercise the 2250 Display Unit) and the 
SAMP2260 card deck (sample Program to exer- 
cise the 2260 Display Station, local) can 
be punched from SYS1.SAMPLIB. 



1. Insure that the graphic device is ON. 

2. Place the sample program deck in the 
card reader. 



Each card deck consists of: 3, 

Appropriate job control language 4, 
statements which will call a cataloged 
procedure (ASMECLG) to assemble, link- 
age edit, and execute the compiled 
program- Before compiling either 5. 
deck, the four over-ride cards below 
must be added to the end of the deck 6. 
after the assembler language END card. 

/* 



Mount the operating system on a 2311. 

Set the load address switches and 
press the Initial Program Load key to 
load the system. 

Perform assemble-link-edit-go. 

Follow instructions which appear on 
your display screen. 



//LKED.SYSLIB DD DSNAME=SYSl. LINKLIB,X 
DISP= (OLD, KEEP) , X 
UNIT=2311 OUTPUT 



//GO. GRAPHIC DD UNIT=2250 
/* 
2. Sample program input symbolic deck. 



The displays which appear on the 2250 
Display Unit are shown on Figure 10. The 
sample program for the 2260 Display Station 
is shown in Figure 11. 
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2250 SAMPLE PROGRAM - END ATTENTION TO BEGIN 



First Display 



THIS PROGRAM WILL PLOT A GRID WITH CORNERS AT 600,600-600,1000- 
1000,1000-1000,600. IT WILL PLOT 90 DEGREES OF ARC WHOSE RADIUS IS 
300 RASTER UNITS. IT ILLUSTRATES THE USE OF ORDER MACROS TO CREATE THIS 
DISPLAY AND PORS TO CREATE THE NEXT DISPLAY. 

DEPRESS KEY D AND THEN THE END KEY ON THE ALPHAMERIC KEYBOARD TO 
INITIATE THE NEXT DISPLAY. 



b. Second Display 





































































































































THIS DISPLAY ILLUSTRATES THE OUTPUT OF THE GSTOR, GCGRID, GARC , 
AND GCPRNT PROBLEM-ORIENTED ROUTINES. 

DEPRESS KEY E AND THEN THE END KEY ON THE ALPHAMERIC KEYBOARD TO 
TERMINATE THIS SAMPLE PROGRAM. 



c. Third Display 

Figure 10. 2250 Displays 
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*n|| IBM SystBm/360 Assembler Coding Form x2«^s»-2 

IJBJVl m«.<,.. u.s.a. 


p ROGR am 2260 SAMPLE PROBLEM punchy «*«.« *« i OF 4 


■ ' 1 INSTRUCTIONS p UN CH CARD ELECTRO NUMBER 

PROGRAMMER | DAT E 


STATEMENT Wimfifirn'i-n 


Nome Operation Operond Comments Sequence 
, 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 73 80 


sffipce "csect - ". x~ x r ~ ::"" :x x z _ _:::__ ::~ z ~ ~ x z _:__ 


fl 1 BALR |»0 ! INITIALIZE BA§E REGISTER __ 


1 1 1 USIjaG *>5 DEFINE BASE REGISTER 


ST 13ii SAVE ; ! i SIAVE REGISTER 13 1 ! 


i SJT im>SAViE+n» i SAVE RETURN: ADDR TO SUPERVISOR! : 


LA' 13iiiSAVER|EA , i LOAD ADDRESS OF REGISTER SAVE ! j 


* ■ 1 ' Jj_ 1 ' '" ! AREA IN PROBLEM PR06RAIM 


if oMeM £DCBi)| 1 OPEN 2260 


X GWRITE DECBljlEiijDCBl^ijOPNllSe WRITE OPEN MS6 TO OPERATOR | 


i ■ wait' ecb-»oecb;i. ■ i i ' i ; ! ! 


TIMING i ANA^LYZ iPOLSTi POI NTR ' [ POLL FOR ATTENTION | ; 


* i i ' ' ' ' l_ ' : i. 1 


KDETERMIME IF *r*TTlRTrBII.."SCCBRKD li v 


if : :_____ ___ _ XT XM_ ;_- 


. B .TIMING X 'IE X X X _ 


% ■ ■ i i i ; i [ :! i ! | : j ! j 1 i ! 1 . ! I ! i|. 


^KEYBOARD ROUTINE TO SERVICE K EV BO!A RiDi ATT!e!n|t!I0N!s! i Mi M j i 


if ' ■ X' : ; i 1 ■ j i Ik 


KYSDiH "SAVE U^lZl T X-T SAVi_MAIN_P-PTR|gISTERS ;__ XX 


" ~T~ Sf 13»SA.VAR2+8 fc • _ X X ' - — - - — '—, — — 


1 LA 13»SAVAR2 i 


i GiREAD DECB2>DS-M>DjCBl> 'INPUT READ DS MANUAL INPUT 1 . ! 


■ . 1 : i WAIT ECB=!DECB2 \< . ■ ! > i WATT FOR | I,-iO OPERATION | , i ■ ! j 


* ■ : | : i | : : i ! : i . 1 i ■ ! i : [ : .! i I.-O COMPLETE Ml! i i : 1 i ' MM 
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JLDJY| «,.ou. 


prooram 22G0 SAMPLE PROBLEM PUNC h,n G -a™, p AGE 2 <* 4 


PROGRAMMER | D ATE """^ PUNCH CARP ELECTRO NUMBER 


STATEMENT 


Name Operation Operand . Comments Sequence 
1 8 10 14 16 20 25 30 35 40 45 50 55 60 65 71 73 80 


M CLC IiNPUTUHPRC C0MIPARE FOR! CONTINUE [CODE 1 


* ! I | ' IN FIRST 4 BYTES OF WSS X 


1 i 8C : 8|1C0NTIN ' IFMES - CONTINUE I 


GWRITE DECB3.jE!BW>DjC.Bl»10»!TE:R«ISG i IF NO ;- ERASE AND WRITE I M ' 


* ; ! , j j | | ■ ' TEiRMSGf i M ! 


WAIT ECB-DECB3 1 i WAIT FOR I-Q 'OPERATION i i 


!HM CLOSE iO'CBl) !; CLOSE J22fe0 , ' T 


.Mi | L 13iSAVEi i RESTORi REGISTER 13 


i || 1 L i i i. 14?SAVE+U 1 1 i RESTORE REGISTER 14 j 1 "1" X 


RETURN RC = i i i ! TERMINATE! TASK 1 AND RETURN TO 1 j i 


* ; : M SUPERVISOR ' | 1 ! . 1 M ' : ' 


X ■ i ■ i i ! 


KPRpCiESSINfii MANUAL INPUT REQUEST' IS DONE l|N CONT'IjN ROUTINE BELOW 


* f i j M . t j ■ j . • - ' . . j 


CONTIN BjCR f g>0P ' DUWWY INSTR|UCT|ION - USER ] 


X I i ; •■ \ , . , PROCESSING ROUTINE WOULD \ II 


* M , 1 i ' i ■ i ' GO' iHjERE i ! i ! i ■ ! 1 


GWRITE DECB^iDSBiiDCBl rU4>PRCMSG WRITE PROCESSING COMPLETE MSG ' 


\^\' WAIIT ECB a DECB*| H' 1 ^AITj FOR 1-0 OiPERATIQN ' ■"' 


j 1 . L M I3*SAVAR2*8 l'.-; 1 :] RtBjSrbejE RE6ISTER 13 i ' 


ill RETlURM (l«il)2>iRC;»I ! 1,1: • . RETURN TO ROLWHG i ■. • ' ' : 


: , ! .'■ . i M , , ■ , | : | , ■ ; | 




M ! i M M ii! ! M ! M. : i ! ; i I M , i i i i i ! i 1 Mi. M I M 



Figure 11. 2260 Sample Program 
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PAGE 


3 op 4 


PROGRAMMER DATE 


PUNCH 




CARD ELECTRO NUMBER 


STATEMENT 


Sequence 
71 73 80 


Name Operation Operand Comments 

8 10 14 16 20 25 30 35 40 45 50 55 60 65 


X ' M 








' 1 f 1 




i 






I ; ;. 


1 j j j 


' 1 ! 




'. If' 


'IMS 

1 Ml M ! 


M 


XC0NSTAN1 


r IAREA 


f 1 






| | 




i 




i 














1. i| 


1 ! 1 


* ! ■ ! 


! 


1 1 






1 i 


. f ? 

„„ ! f J 










! | 'j 


•„1 




! j 


. A_ i ._J_ 




DCB1 


DCB 


D'SORfi 


= GSVM 


ac:rf = 


(RCjrW 


CbDD 


NAME 


= SAMPLEPGi6NCPi=4v h ; i 


X 






pol'sht 


•POLS 


T i ! 


i i ! i 






■ 1 


1 ' 


i m ; • ; , • j 


i 




DS 


0F 










j ! j 










i Mil 


i ! '. 


INPUT ! 


& 


C! ! 


240IF 


'( 


I' 




! 1 


i 








| 

f 


1 ' 


D|EFII 


ME' 


INPUT AREIA 


1 ! r ! Ml!! 


] j, \ , 


PRiC i 




D 


c ! 


CL 


4 


1 


PI 


m 


* i 


















PlROC 


ESg 


ACTION; CiODE i 1 


i 1 • < 


POILSITI ! 




DC 


2F 


1 





1 


\ 




t f.. 










Mil 


pIoils 


r ;CONSTRU|C|TE!Di 


eiY OPEN i ! 




X 














RESE 


eVE NUMBER OF 


OPENED 




X 














DEVIl 


:es+i full WORDS 




P0INTR 


DC 


1F'0' 










POIN 


IER TABLiE FOR 


ANALYZ 








DC 


AC KiYB 1 


W\ 


■N) 














AjDDR 


0(F 


IKEY'BOARD ROUTINE 


• " ' | ; M , ! 






DC 


i£ 


'!0' 






j i t 




1 I I 






ZERO 






| 




, j j 


! i 1 


II ] j 




DC 1 


lE 


'0:' 




j 


1 i 1 






1! 




z|ero 


| 






IT 


| | | I 


::±±l±~ 




DC 


A(0UTI 


'UT) 








A DDR 


OF OUTPUT ARiE 


:AI i ; ' ' ; ! ! 




OUTPUT 


DC 


2F'0' 










RESEI 


?VEi TWO 


1 WORDS 


FOR! M ! ; 




X 






! 








OUTP 


JT 


AR 


EA! i ' 


l i ' M ' 




SAVE 


DC! ■ 1 


2F'|0 
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I 1 i i 


SAlVEl 


a¥ 


EA 


FOR SUPV REGISTERS 


! t j < 

! ] ; * 


SAVEAREA 


DC: 


ifi 


Fi' 





i 










Mm 


I 


P-!P |l 


*I£ 


I 


S 


TER SjAVE 


AREA f i ^ 


' • 


SAV|A;R2j 1 


DC| ; 1 


H 


F|'i0 


i 


,.... , 


,i 




I > 


I J_ 


' ' j 












! 


\ i I 






















' ! 


i : 






i : 
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i ! 
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i 1 




i i i 
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1 1 1 I 
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MM 


1 


1 I ' 




1 i 


H • 




j ' 


| J 1 I 
. i 


l > i 






t 1 

! j i ! 


j 






1 ! 




1 














1 


XMESSAGE 


AIRE A 


! , 1 ! ■• 




! I 1 




: i 


1 




i • : 








|, j. 






1 


j 










.. . I . ., 
























* M 


j , ; 


1 H 




; . I 1 




! 1 






MM 


...1 






1 ' 


! 


! 


| 1 
1 .„ 


j 






J- 


t 1 


1 
















\ 1 


OPNMSG 


DC 


CL4.3 1 ' 


DISPL 


AY STi 


ATI ON 


OPEN 


■- IN 


SERT 


DS MI 


RiE 


3U 


ES 


tI' 


1 ( ' 




1 : 


TERMSG 


DC 


CL10i' 


END :0 


F JOB 


J j ! , 






, ! 
' 1 


i 






i 


' M M 






PRCMSG 


DC 


CL44' 


PROCE 


SSIN6 


COMP 


L'ETE 


- INS 


ERT N 


EXT M 


I REQ 


U'EST 1 






1 i 


X 1 ; ' ; i ' 




1 I 








i 


1 1 i" 

j 1 , , .. 






I | 


M 




* 1 1 




! 


1 1 


j 










|MI •' 


X SECOND 


AC 


»Y PROG 


'EA 


MS 






1 


| 








i ! 




" i' 

: j 








| 1 


1 






i„i ! 






! i 


x \- ; ! ! 




1 




1 
1 




'Ml 

I 1 


' i 






1 i 


1 




1 J. . i 


1 1 1 i 


t 




! ! i 








! M 1 r 


XGRAPHIC 


ATTEN1 


"ION A 


NALYS 


IS RO 


JTINE 




















X 






























XGRAPHIC 


1-0 


CONTR 


OL RO 


UTINE 






















XI i | ! 














Ml 




5 { M 




...1 








I.J ' > 


1 : ■■ 1 , 


end ; 




MM 


MM 




j, 1 1 1,, 


11 








j 








1 ..! 


1 




Ml! 


. ! i I 1 1 ' 
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Ml 

MM 


1 1 




M | | 


! ; 1 i 
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; 1 1 ii 1 
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Ml. 


1 | I 
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; j ! 






Mm 










1 1 M 
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Figure 11. 2260 Sample Program (Continued) 
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REPORT PROGRAM GENERATOR SAMPLE PROGRAM (RPGSMPL) 



DESCRIPTION 



OPERATING INSTRUCTIONS 



The RPGSMPL card deck (punched from 
SYS1.SAMPLIB) consists of 



Job control language statements to 
call a cataloged procedure for a com- 
pilation, link-edit, and execution of 
the sample program. 



Report Program Generator source state- 
ments; there are 4 5 of these. 



3. Data cards for the program to process; 
there are 13 of these, and no other 
input is necessary. 

The program processes the 13 data cards 
which contain details of customer transac- 
tions and prepares the report shown in 
Figure 12. A detailed description of the 
source program appears in IBM Operating 
System/360: Report Program Generator Lan- 
guage , Form C24-3337. 



1. Mount the operating system on a 2311 
and an initialized scratch pack. 

2. Set the load address switches and 
press the Initial Program Load key to 
load the operating system. 

3. Place the RPGSMPL card deck in the card 
reader, ready the reader, and press 
the End of File key. 

4. Ready the printer. 

5. Execute the job. 



OUTPUT 



Program output will consist of a printed 
listing of the source program and the 
printed report shown in Figure 12. 



Report Program Generator Sample Program (RPGSMPL) 30A 
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r 


ACCOUNT 


S R E 


C E I V 


ABLE REGIST 


E R 




1 


| CUSTOMER 




LOCATION 


INVOICE 


INVOICE 


DATE 




INVOICE | 


| NUMBER 


CUSTOMER NAME 


STATE 


CITY 


NUMBER 


NO. 


DAY 




AMOUNT | 


| 10712 


AMALGAMATED CORP 


33 


61 


11603 


11 


10 


$ 
$ 


389.25 | 
389.25* | 


| 11315 


BROWN WHOLESALE 


30 


231 


12324 


12 


28 


$ 


802.08 | 


| 11315 


BROWN WHOLESALE 


30 


231 


99588 


12 


14 


$ 
$ 


261.17 | 
1,063.25* | 


| 11897 


FARM IMPLEMENTS 


47 


77 


10901 


10 


18 


$ 
$ 


27.63 | 
27.63* | 


| 18530 


BLACK OIL 


16 


67 


11509 


11 


8 


$ 


592.95 | 


| 18530 


BLACK OIL 


16 


67 


12292 


12 


23 


$ 
$ 


950.97 | 
1,543.92* | 


| 20716 


LEATHER BELT CO 


36 


471 


11511 


11 


8 


$ 


335.63 | 


| 20716 


LEATHER BELT CO 


36 


471 


12263 


12 


17 


$ 
$ 


121.75 | 
457.38* | 


| 29017 


GENERAL MFG CO 


6 


63 


11615 


11 


14 


$ 


440.12 | 


| 29017 


GENERAL MFG CO 


6 


63 


11676 


11 


23 


$ 
$ 


722.22 | 
l t 162.34* | 


| 29054 


A-B-C DIST CO 


25 


39 


9689 


9 


11 


$ 


645.40 | 


| 29054 


A-B-C DIST CO 


25 


39 


11605 


11 


11 


$ 


271.69 | 


| 29054 


A-B-C DIST CO 


25 


39 


12234 


12 


14 


$ 
$ 


559.33 | 
1,476.42* | 


L 














$ 


6,120.19**| 

j 



Figure 12. RPG Sample Program Printed Report 
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